Nautilus 1994 April/Nautilus CD Magazine Volume 4-4 April 1994 Windows Edition.mdf/setup/nautcd/link/falnet.scr

Text File | 1993-08-18 | 944b | 51 lines

!
!  Copyright (c) 1993
!  by CompuServe Incorporated, Columbus, Ohio
!
!  The information in this software is subject to change without
!  notice and should not be construed as a commitment by CompuServe.
!
!  FALNET:
!    Connect to FALNET
!    Success:  returns %Success
!    Failure:  saves error msg in %FailureMsg and returns %Failure
!
!+V
! "3.1"
!-V

ConnectStr = "Connecting to FALNET";
FailStr = "FALNET not responding";

Start_FALNET:
    show ConnectStr;
    Tries = 5;
    on cancel goto Return_Cancel;

Wait_FALNET:
    if Tries = 0 goto FALNET_Failure;
    Tries = Tries - 1;

    wait
        "READY"        goto Send_FALNET_Host,
        "User ID:"    goto Return_Success
    until 80;

    send %CR & %CR & %CR;
    goto Wait_FALNET;

Send_FALNET_Host:
    send "C CIS" & %CR;
    goto Wait_FALNET;

FALNET_Failure:
    define %FailureMsg = FailStr;
    exit %Failure;

Return_Cancel:
    exit %Cancel;

Return_Success:
    send %CR;
    exit %Success;